home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 2 / Amiga Tools 2.iso / datenbanken / magicadreßmanageriii / install < prev    next >
Text File  |  1995-03-09  |  3KB  |  115 lines
  1. ; This is test of many of the features of the Installer
  2. ; Prints out debugging info if run from CLI
  3.  
  4. (welcome)
  5. (complete 0)
  6.  
  7. (transcript "On making \"Adreßmanager III\"...")
  8.  
  9. (set @default-dest (getassign "Work" "dva"))
  10. (if (= @default-dest "")
  11.  (set @default-dest "SYS:"))
  12.  
  13. (set @default-dest (askdir
  14.   (prompt "Bitte wählen Sie das Verzeichniss wohin Adreßmanager installiert werden soll. Dieses Installationsscript legt dort selbst eine Schublade an.")
  15.   (help @makedir-help)
  16.   (default @default-dest))
  17. )
  18.  
  19. (set @default-dest (tackon @default-dest "Adreßmanager_III")) 
  20. (makedir @default-dest (prompt "Das Hauptverzeichnis wird erstellt")(infos))
  21. (makedir (tackon @default-dest "Artwork")) 
  22. (makedir (tackon @default-dest "SBrief") (prompt "Serienbrief-Verzeichnis")(infos))
  23. (makedir (tackon @default-dest "Text") (prompt "Text-Verzeichnis")(infos))
  24. (makedir (tackon @default-dest "Grafik") (prompt "Grafik-Verzeichnis")(infos))
  25.  
  26.  
  27. (complete 10)
  28.  
  29. (copyfiles (prompt "Installiere Hauptprogramm.")
  30.  (source "MagicAdreßmanager3")
  31.  (dest @default-dest)
  32.  (optional "fail")
  33.  (infos)
  34. )
  35.   
  36. (complete 20)
  37.  
  38. (copyfiles (prompt "Installiere Zusatzdatei.")
  39.  (source "Artwork/Art")
  40.  (dest (tackon @default-dest "Artwork"))
  41.  (optional "fail")
  42.  (infos)
  43. )  
  44.  
  45. (complete 25)
  46.  
  47. (copyfiles (prompt "Installiere Dokumentation.")
  48.  (source "MAM3.guide")
  49.  (dest @default-dest)
  50.  (optional "fail")
  51.  (infos)
  52. )
  53.  
  54. (complete 29)
  55.  
  56. (copyfiles (prompt "Installiere Dokumentation.")
  57.  (source "Registrierungskarte")
  58.  (dest @default-dest)
  59.  (optional "fail")
  60.  (infos)
  61. )
  62.  
  63.  
  64. (complete 30)
  65.  
  66. (if (= 1 (askbool (prompt "Soll Adreßmanager III einmal jeden Tag prüfen ob in den nächsten 7 Tagen jemand Geburtstag hat?") (help "Es wird ein kurzer Befehl in die WBStartup kopiert")))
  67.  (
  68.   (
  69.    (copyfiles (prompt "Kopiere Geburtstags-Checker")
  70.     (source "MAM3")
  71.     (dest "SYS:WBStartup")
  72.     (optional "fail")
  73.     (infos)
  74.    )
  75.   )
  76.  )
  77. )
  78.  
  79. (complete 50)
  80.  
  81.  
  82. (startup "AdreßmanagerIII"
  83.   (prompt "Ein assign muß jetzt noch in \"S:user-startup\" eingefügt werden. Soll dies jetzt geschehen? (Andernfalls müssen Sie später selbst die Zeile 'assign MAM3: " @default-dest "' nachtragen.)")
  84.   (help "No help for this function")
  85.   (command "assign MAM3: " @default-dest "\n")
  86. )
  87.  
  88. (makeassign "MAM3" @default-dest)
  89.  
  90. (complete 70)
  91.  
  92. (copyfiles (prompt "Installiere ARexx-Scripts.")
  93.  (source "ARexx")
  94.  (dest (tackon @default-dest "ARexx"))
  95.  (optional "fail")
  96.  (all)
  97.  (infos)
  98. )
  99.  
  100. (complete 80)
  101.  
  102. (copyfiles (prompt "Installiere Beispiel-Serienbrief.")
  103.  (source "SBrief")
  104.  (dest (tackon @default-dest "SBrief"))
  105.  (optional "fail")
  106.  (all)
  107.  (infos)
  108. )
  109.  
  110. (complete 95)
  111.  
  112. (message "Ich wünsche viel Spaß bei der Benutzung des Adreßmanagers III. Wenn Ihnen dieses Programm gefällt und Sie es öffters benutzen, dann vergessen Sie bitte nicht, daß Adreßmanager Shareware ist.")
  113. (complete 100)
  114.  
  115.